perm filename INIT.COW[COW,LCS] blob sn#267272 filedate 1977-03-07 generic text, type C, neo UTF8
COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	Function SETRATE(NCHNS,SRATE)
C00006 ENDMK
C⊗;
Function SETRATE(NCHNS,SRATE);
    begin
    VARIABLE X;
	IF NCHNS > 4  THEN
		BEGIN  PRINT "IMPROPER NCHNS.   ";
		print "Type number of channels: ";
		rdnum(nchns);
		print "Sample rate: ";
		rdnum(srate);
		END;
	if srate<100 then srate←srate*1000;
	SPEED←INT(ALOG(SRATE/6400)/ALOG(2)+.1);
	mag←512/srate;
	PRINT "NCHNS=",NCHNS,"  SRATE=",SRATE,"  SPEED=",SPEED;
    end;